home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_304_EachMenuItem < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.2 KB  |  51 lines
  1. %case define%
  2.     %MenuName%%MenuItemName%%    %= %MenuItemNr%;
  3. %case usesDialog%
  4.     %if dialogExists%
  5.         %dlogname%,
  6.     %endif%
  7. %case doItem%
  8.     %if MenuName = File%
  9.         %DoMenuItem.File%
  10.     %elsif MenuName = Edit%
  11.         %DoMenuItem.Edit%
  12.     %elsif About%
  13.         {----------}
  14.         Procedure Do%MenuItemName%;
  15.         var
  16.             itemNr:        integer;
  17.         Begin
  18.             itemNr := Alert (AboutID, nil);
  19.         End; {Do%MenuItemName%}
  20.  
  21.     %else%
  22.         %DoMenuItem%
  23.     %end if%
  24. %case handleItem%
  25.     %MenuName%%MenuItemName%:
  26.         Do%MenuItemName%;
  27. %case enableFile%
  28.     %if menuitemname = Close%
  29.         Enable (FileClose,        isFront);
  30.     %elsif menuitemname = Save%
  31.         Enable (FileSave,        isDirty);
  32.     %elsif menuitemname = SaveAs%
  33.         Enable (FileSaveAs,        hasFile);
  34.     %elsif menuitemname = Revert%
  35.         Enable (FileRevert,        isDirty and hasFile);
  36.     %endif%
  37. %case enableEdit%
  38.     %if menuitemname = Undo%
  39.         Enable (EditUndo,        isDesk);
  40.     %elsif menuitemname = Cut%
  41.         Enable (EditCut,        isDesk or isSelected);
  42.     %elsif menuitemname = Copy%
  43.         Enable (EditCopy,        isDesk or isSelected);
  44.     %elsif menuitemname = Paste%
  45.         Enable (EditPaste,        isDesk or isScrap);
  46.     %elsif menuitemname = Clear%
  47.         Enable (EditClear,        isDesk or isSelected);
  48.     %elsif menuitemname = SelectAll%
  49.         Enable (EditSelectAll,    isText);
  50.     %endif%
  51.